home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / DATAUTIL / DBASEUT1.LZH / F-KEYS.PRG < prev    next >
Text File  |  1986-03-14  |  3KB  |  121 lines
  1. **************************************
  2. * SET FUNCTION KEYS FOR DBASEIII     *
  3. * A USEFUL UTILITY FOR DBIII PRGRMRS *
  4. * TO SAVE TYPING TIME DURING         *
  5. * A PROGRAMMING SESSION              *
  6. *  by Charles Munao 3/14/86          *
  7. **************************************
  8. CLEAR
  9. SET TALK OFF
  10. SET BELL OFF
  11. STORE SPACE(60) TO KEYT
  12. STORE 2 TO CNT
  13. STORE 10 TO E_CNT
  14. STORE 8 TO LN
  15. STORE 'A' TO ALL
  16. STORE 'T' TO TMP
  17. STORE 'E' TO EXIST
  18. @ 1,0 SAY DATE()
  19. @ 1,31 SAY 'SET FUNCTION KEYS'
  20. @ 1,66 SAY 'Charles Munao'
  21. @ 12,22 SAY '[E]xisting  [N]ew or  [D]efault  Keys'
  22. @ 12,60 GET EXIST PICTURE '!'
  23. READ
  24. CLEAR GETS
  25.     IF EXIST='E'
  26.        USE KEYS
  27.        CNT=2
  28.        LN=8
  29.        CLEAR
  30.        @ 6,29 SAY 'EXISTING FUNCTION KEYS'
  31.        DO WHILE CNT<11
  32.           GO CNT
  33.           @ LN,25 SAY 'f'+SUBSTR(STR(CNT),9,2)+'= '+KEY
  34.           SET FUNCTION CNT TO TRIM(KEY)+CHR(13)
  35.           CNT=CNT+1
  36.           LN=LN+1
  37.        ENDDO
  38.        CLOSE DATA
  39.        RETURN
  40.     ENDIF
  41.     IF EXIST='D'
  42.        USE D-KEYS
  43.        CNT=2
  44.        LN=8
  45.        CLEAR
  46.        @ 6,29 SAY 'DEFAULT  FUNCTION KEYS'
  47.        DO WHILE CNT<11
  48.           GO CNT
  49.           @ LN,25 SAY 'f'+SUBSTR(STR(CNT),9,2)+'= '+KEY
  50.           SET FUNCTION CNT TO TRIM(KEY)+CHR(13)
  51.           CNT=CNT+1
  52.           LN=LN+1
  53.        ENDDO
  54.        CLOSE DATA
  55.        RETURN
  56.      ENDIF
  57. CLEAR
  58. @ 12,30 SAY '[A]ll keys or [S]ome'
  59. @ 12,51 GET ALL PICTURE '!'
  60. @ 14,30 SAY '[S]ave or [T]emporary'
  61. @ 14,52 GET TMP PICTURE '!'
  62. READ
  63. CLEAR GETS
  64.    IF TMP='S'
  65.       USE KEYS
  66.       APPEND BLANK
  67.    ENDIF
  68.    IF ALL='A'
  69.       EXIT
  70.     ELSE
  71.       STORE 00 TO CNT
  72.       @ 16,30 SAY 'Start at f key # '
  73.       @ 16,46 GET CNT PICTURE '##' RANGE 2,10
  74.       @ 18,30 SAY 'End at   f key # '
  75.       @ 18,46 GET E_CNT PICTURE '##' RANGE CNT,10
  76.       READ
  77.       CLEAR GETS
  78.    ENDIF ****** how many keys ? ****
  79. CLEAR
  80. @ 1,0 SAY DATE()
  81. @ 1,31 SAY 'SET FUNCTION KEYS'
  82. @ 1,66 SAY 'Charles Munao'
  83. DO WHILE CNT<=E_CNT
  84.    @ 6,30 SAY 'FUNCTION KEY # :'
  85.    @ 6,46 SAY SUBSTR(STR(CNT),9,2)
  86.    @ LN,5 SAY 'SET f'+SUBSTR(STR(CNT),9,2)+' TO '
  87.  DO CASE
  88.   CASE TMP='T'
  89.    @ LN,18 GET KEYT
  90.    READ
  91.    CLEAR GETS
  92.       IF KEYT=' '
  93.          RETURN
  94.       ENDIF **** exit loop ****
  95.    SET FUNCTION CNT TO TRIM(KEYT)+CHR(13)
  96.   CASE TMP='S'
  97.    GO CNT
  98.    @ LN,18 GET KEY
  99.    READ
  100.    CLEAR GETS
  101.    REPLACE KEY WITH TRIM(KEY)
  102.      IF KEY=' '
  103.         CLOSE DATA
  104.         RETURN
  105.      ENDIF
  106.    SET FUNCTION CNT TO TRIM(KEY)+CHR(13)
  107.   ENDCASE
  108.    @ LN,0 CLEAR
  109.    IF TMP='S'
  110.       @ LN,5 SAY 'F'+SUBSTR(STR(CNT),9,2)+' = '+KEY
  111.      ELSE
  112.       @ LN,5 SAY 'F'+SUBSTR(STR(CNT),9,2)+' = '+KEYT
  113.       STORE SPACE(60) TO KEYT
  114.    ENDIF
  115.    STORE SPACE(60) TO KEY
  116.    CNT=CNT+1
  117.    LN=LN+1
  118. ENDDO
  119. CLOSE DATA
  120. RETURN
  121.